/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_2 / issue_04 / recovery / getdisc4

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1b f4 20 3e 20 | 26 2e 52 65 63 6f 76 65 |..... > |&.Recove|
|00000010| 72 79 2e 47 65 74 44 69 | 73 63 34 0d 00 14 04 0d |ry.GetDi|sc4.....|
|00000020| 00 1e 28 f4 20 28 43 29 | 20 52 69 63 68 61 72 64 |..(. (C)| Richard|
|00000030| 20 41 6e 74 68 6f 6e 79 | 20 41 76 65 72 69 6c 6c | Anthony| Averill|
|00000040| 2c 20 31 39 38 38 2e 0d | 00 28 04 0d 00 32 46 f4 |, 1988..|.(...2F.|
|00000050| 20 52 65 63 6f 76 65 72 | 20 74 68 65 20 64 69 72 | Recover| the dir|
|00000060| 65 63 74 6f 72 69 65 73 | 20 6f 6e 20 61 20 64 69 |ectories| on a di|
|00000070| 73 63 20 77 69 74 68 20 | 69 74 73 20 72 6f 6f 74 |sc with |its root|
|00000080| 20 64 69 72 65 63 74 6f | 72 79 20 77 69 70 65 64 | directo|ry wiped|
|00000090| 2e 0d 00 3c 45 f4 20 52 | 75 6e 73 20 6f 6e 20 33 |...<E. R|uns on 3|
|000000a0| 31 30 20 77 69 74 68 20 | 73 69 7a 65 73 20 61 74 |10 with |sizes at|
|000000b0| 20 7a 65 72 6f 20 28 65 | 78 63 65 70 74 20 53 63 | zero (e|xcept Sc|
|000000c0| 72 65 65 6e 53 69 7a 65 | 21 29 2c 20 61 6e 64 20 |reenSize|!), and |
|000000d0| 61 20 34 34 30 2e 0d 00 | 46 04 0d 00 50 08 eb 20 |a 440...|F...P.. |
|000000e0| 31 32 0d 00 5a 50 f1 20 | 8a 36 29 3b 27 22 41 72 |12..ZP. |.6);'"Ar|
|000000f0| 63 68 69 6d 65 64 65 73 | 20 64 69 73 63 20 72 65 |chimedes| disc re|
|00000100| 63 6f 76 65 72 65 72 20 | 76 31 2e 4c 2e 20 28 43 |coverer |v1.L. (C|
|00000110| 29 20 52 69 63 68 61 72 | 64 20 41 6e 74 68 6f 6e |) Richar|d Anthon|
|00000120| 79 20 41 76 65 72 69 6c | 6c 2c 20 31 39 38 38 2e |y Averil|l, 1988.|
|00000130| 22 27 0d 00 64 84 f1 20 | 22 54 68 69 73 20 70 72 |"'..d.. |"This pr|
|00000140| 6f 67 72 61 6d 20 77 69 | 6c 6c 20 72 65 2d 63 72 |ogram wi|ll re-cr|
|00000150| 65 61 74 65 20 61 20 64 | 69 73 63 20 74 68 61 74 |eate a d|isc that|
|00000160| 20 68 61 73 20 68 61 64 | 20 69 74 73 20 72 6f 6f | has had| its roo|
|00000170| 74 20 28 24 29 20 64 69 | 72 65 63 74 6f 72 79 20 |t ($) di|rectory |
|00000180| 6f 76 65 72 2d 22 27 22 | 77 72 69 74 74 65 6e 2e |over-"'"|written.|
|00000190| 20 43 6f 6e 63 65 70 74 | 20 62 79 20 52 69 63 68 | Concept| by Rich|
|000001a0| 61 72 64 20 41 6e 74 68 | 6f 6e 79 20 41 76 65 72 |ard Anth|ony Aver|
|000001b0| 69 6c 6c 2e 22 27 0d 00 | 6e 32 f1 20 22 46 6f 72 |ill."'..|n2. "For|
|000001c0| 20 36 34 30 4b 20 27 4c | 27 20 28 42 42 43 20 4d | 640K 'L|' (BBC M|
|000001d0| 61 73 74 65 72 20 74 79 | 70 65 29 20 41 44 46 53 |aster ty|pe) ADFS|
|000001e0| 20 64 69 73 63 73 22 27 | 0d 00 78 04 0d 00 82 17 | discs"'|..x.....|
|000001f0| de 20 73 75 72 66 61 63 | 65 25 20 36 34 30 2a 31 |. surfac|e% 640*1|
|00000200| 30 32 34 0d 00 8c 56 de | 20 6e 6f 74 63 6f 70 79 |024...V.| notcopy|
|00000210| 25 28 31 35 30 29 2c 20 | 64 69 72 65 63 74 6f 72 |%(150), |director|
|00000220| 79 25 28 31 35 30 29 2c | 20 64 69 72 65 63 74 6f |y%(150),| directo|
|00000230| 72 79 24 28 31 35 30 29 | 2c 20 63 6f 70 79 6c 69 |ry$(150)|, copyli|
|00000240| 73 74 25 28 31 35 30 29 | 2c 20 20 63 6f 70 79 6c |st%(150)|,  copyl|
|00000250| 69 73 74 24 28 31 35 30 | 29 0d 00 a0 16 44 69 73 |ist$(150|)....Dis|
|00000260| 63 4f 70 25 20 20 20 3d | 20 26 34 30 32 34 30 0d |cOp%   =| &40240.|
|00000270| 00 aa 19 68 75 67 6f 25 | 20 20 20 20 20 3d 20 26 |...hugo%|     = &|
|00000280| 36 46 36 37 37 35 34 38 | 0d 00 b4 15 4f 53 5f 46 |6F677548|....OS_F|
|00000290| 53 43 6f 6e 74 72 6f 6c | 25 3d 26 32 39 0d 00 be |SControl|%=&29...|
|000002a0| 11 4f 53 5f 46 69 6c 65 | 25 20 20 3d 20 38 0d 00 |.OS_File|%  = 8..|
|000002b0| c8 13 64 69 72 63 6f 75 | 6e 74 65 72 25 20 3d 20 |..dircou|nter% = |
|000002c0| 30 0d 00 d2 12 63 6f 70 | 79 63 6f 75 6e 74 65 72 |0....cop|ycounter|
|000002d0| 25 3d 30 0d 00 dc 04 0d | 00 e6 26 e8 20 22 45 78 |%=0.....|..&. "Ex|
|000002e0| 61 6d 69 6e 65 20 77 68 | 69 63 68 20 64 72 69 76 |amine wh|ich driv|
|000002f0| 65 20 3f 20 22 20 64 72 | 69 76 65 25 27 0d 00 f0 |e ? " dr|ive%'...|
|00000300| 45 f2 70 72 6f 6d 70 74 | 28 22 49 6e 73 65 72 74 |E.prompt|("Insert|
|00000310| 20 64 69 73 63 20 69 6e | 20 64 72 69 76 65 20 22 | disc in| drive "|
|00000320| 2b c3 64 72 69 76 65 25 | 2b 22 20 61 6e 64 20 70 |+.drive%|+" and p|
|00000330| 72 65 73 73 20 61 6e 79 | 20 6b 65 79 20 2e 2e 2e |ress any| key ...|
|00000340| 22 29 0d 00 fa 04 0d 01 | 04 0d f2 6c 6f 61 64 64 |")......|...loadd|
|00000350| 69 73 63 0d 01 0e 0d f2 | 66 69 6e 64 64 69 72 73 |isc.....|finddirs|
|00000360| 0d 01 18 0e f2 66 69 6e | 64 72 6f 6f 74 73 0d 01 |.....fin|droots..|
|00000370| 22 10 f2 64 69 73 70 6c | 61 79 64 69 72 73 0d 01 |"..displ|aydirs..|
|00000380| 2c 0f f2 63 72 65 61 74 | 65 64 69 73 63 0d 01 36 |,..creat|edisc..6|
|00000390| 05 e0 0d 01 40 04 0d 01 | 4a 0f dd 20 f2 6c 6f 61 |....@...|J.. .loa|
|000003a0| 64 64 69 73 63 0d 01 54 | 25 f1 20 27 22 4c 6f 61 |ddisc..T|%. '"Loa|
|000003b0| 64 69 6e 67 20 64 69 73 | 63 20 69 6e 74 6f 20 6d |ding dis|c into m|
|000003c0| 65 6d 6f 72 79 20 2e 2e | 2e 22 0d 01 5e 2e c8 99 |emory ..|."..^...|
|000003d0| 20 26 34 30 32 34 30 2c | 30 2c 31 2c 64 72 69 76 | &40240,|0,1,driv|
|000003e0| 65 25 3c 3c 32 39 2c 73 | 75 72 66 61 63 65 25 2c |e%<<29,s|urface%,|
|000003f0| 36 34 30 2a 31 30 32 34 | 0d 01 68 11 f1 20 22 46 |640*1024|..h.. "F|
|00000400| 69 6e 69 73 68 65 64 2e | 22 0d 01 72 05 e1 0d 01 |inished.|"..r....|
|00000410| 7c 04 0d 01 86 11 dd 20 | f2 63 72 65 61 74 65 64 ||...... |.created|
|00000420| 69 73 63 0d 01 90 32 e8 | 20 22 43 72 65 61 74 65 |isc...2.| "Create|
|00000430| 20 61 20 6e 65 77 20 64 | 69 73 63 20 69 6e 20 77 | a new d|isc in w|
|00000440| 68 69 63 68 20 64 72 69 | 76 65 20 3f 20 22 20 64 |hich dri|ve ? " d|
|00000450| 72 69 76 65 25 0d 01 9a | 33 e7 20 a4 61 73 6b 28 |rive%...|3. .ask(|
|00000460| bd 31 30 2b bd 31 33 2b | 22 44 72 69 76 65 20 22 |.10+.13+|"Drive "|
|00000470| 2b c3 64 72 69 76 65 25 | 2b 22 2e 20 4f 4b 20 3f |+.drive%|+". OK ?|
|00000480| 22 29 3d a3 20 8c 20 e1 | 0d 01 a4 39 e7 20 a4 61 |")=. . .|...9. .a|
|00000490| 73 6b 28 22 44 6f 20 79 | 6f 75 20 77 69 73 68 20 |sk("Do y|ou wish |
|000004a0| 74 6f 20 66 6f 72 6d 61 | 74 20 74 68 69 73 20 64 |to forma|t this d|
|000004b0| 69 73 63 20 28 59 2f 4e | 29 20 3f 22 29 3d b9 20 |isc (Y/N|) ?")=. |
|000004c0| 8c 0d 01 ae 1f c8 99 20 | 35 2c 22 46 6f 72 6d 61 |....... |5,"Forma|
|000004d0| 74 20 22 2b c3 64 72 69 | 76 65 25 2b 22 20 4c 22 |t "+.dri|ve%+" L"|
|000004e0| 0d 01 b8 05 cc 0d 01 c2 | 37 e7 20 a4 61 73 6b 28 |........|7. .ask(|
|000004f0| 22 57 69 70 65 20 61 6c | 6c 20 66 69 6c 65 73 20 |"Wipe al|l files |
|00000500| 6f 6e 20 64 65 73 74 2e | 20 64 69 73 63 20 28 59 |on dest.| disc (Y|
|00000510| 2f 4e 29 20 3f 20 22 29 | 3d b9 20 8c 0d 01 cc 2f |/N) ? ")|=. ..../|
|00000520| c8 99 20 22 58 4f 53 5f | 43 4c 49 22 2c 22 57 49 |.. "XOS_|CLI","WI|
|00000530| 50 45 20 3a 22 2b c3 64 | 72 69 76 65 25 2b 22 2e |PE :"+.d|rive%+".|
|00000540| 24 2e 2a 20 46 52 7e 43 | 7e 56 22 0d 01 d6 05 cd |$.* FR~C|~V".....|
|00000550| 0d 01 e0 05 cd 0d 01 ea | 24 e7 20 a4 61 73 6b 28 |........|$. .ask(|
|00000560| 22 43 6f 6e 74 69 6e 75 | 65 20 28 59 2f 4e 29 20 |"Continu|e (Y/N) |
|00000570| 3f 22 29 3d a3 20 8c 20 | e1 0d 01 f4 04 0d 01 fe |?")=. . |........|
|00000580| 18 70 72 65 24 3d 22 3a | 22 2b c3 64 72 69 76 65 |.pre$=":|"+.drive|
|00000590| 25 2b 22 2e 22 0d 02 08 | 0a 2a 4e 4f 44 49 52 0d |%+"."...|.*NODIR.|
|000005a0| 02 12 1c c8 99 20 35 2c | 22 44 49 53 4d 4f 55 4e |..... 5,|"DISMOUN|
|000005b0| 54 20 22 2b c3 64 72 69 | 76 65 25 0d 02 1c 19 c8 |T "+.dri|ve%.....|
|000005c0| 99 20 35 2c 22 4d 4f 55 | 4e 54 20 22 2b c3 64 72 |. 5,"MOU|NT "+.dr|
|000005d0| 69 76 65 25 0d 02 26 0a | 2a 4e 4f 4c 49 42 0d 02 |ive%..&.|*NOLIB..|
|000005e0| 30 1c e3 20 72 61 25 3d | 30 20 b8 20 63 6f 70 79 |0.. ra%=|0 . copy|
|000005f0| 63 6f 75 6e 74 65 72 25 | 2d 31 0d 02 3a 0d 73 70 |counter%|-1..:.sp|
|00000600| 61 63 65 73 25 3d 32 0d | 02 44 25 f1 20 a4 69 6e |aces%=2.|.D%. .in|
|00000610| 64 65 6e 74 3b 22 44 69 | 72 20 3a 20 22 2b 63 6f |dent;"Di|r : "+co|
|00000620| 70 79 6c 69 73 74 24 28 | 72 61 25 29 0d 02 4e 29 |pylist$(|ra%)..N)|
|00000630| c8 99 20 38 2c 38 2c 70 | 72 65 24 2b 22 24 2e 22 |.. 8,8,p|re$+"$."|
|00000640| 2b 63 6f 70 79 6c 69 73 | 74 24 28 72 61 25 29 2c |+copylis|t$(ra%),|
|00000650| 30 2c 30 2c 30 0d 02 58 | 25 c8 99 20 26 32 39 2c |0,0,0..X|%.. &29,|
|00000660| 30 2c 70 72 65 24 2b 22 | 24 2e 22 2b 63 6f 70 79 |0,pre$+"|$."+copy|
|00000670| 6c 69 73 74 24 28 72 61 | 25 29 0d 02 62 1c f2 65 |list$(ra|%)..b..e|
|00000680| 78 61 6d 69 6e 65 28 63 | 6f 70 79 6c 69 73 74 25 |xamine(c|opylist%|
|00000690| 28 72 61 25 29 29 0d 02 | 6c 05 ed 0d 02 76 05 e1 |(ra%))..|l....v..|
|000006a0| 0d 02 80 04 0d 02 8a 18 | dd 20 f2 65 78 61 6d 69 |........|. .exami|
|000006b0| 6e 65 28 64 69 72 61 64 | 64 72 25 29 0d 02 94 15 |ne(dirad|dr%)....|
|000006c0| ea 20 63 6f 75 6e 74 65 | 72 25 2c 63 6f 75 6e 74 |. counte|r%,count|
|000006d0| 25 0d 02 9e 0e 73 70 61 | 63 65 73 25 2b 3d 32 0d |%....spa|ces%+=2.|
|000006e0| 02 a8 0c 63 6f 75 6e 74 | 25 3d 30 0d 02 b2 20 63 |...count|%=0... c|
|000006f0| 6f 75 6e 74 65 72 25 3d | 64 69 72 61 64 64 72 25 |ounter%=|diraddr%|
|00000700| 2b 35 2b 73 75 72 66 61 | 63 65 25 0d 02 bc 20 c8 |+5+surfa|ce%... .|
|00000710| 95 20 3f 63 6f 75 6e 74 | 65 72 25 3c 3e 30 20 80 |. ?count|er%<>0 .|
|00000720| 20 63 6f 75 6e 74 25 3c | 3d 34 37 0d 02 c6 22 66 | count%<|=47..."f|
|00000730| 69 6c 65 24 3d a4 6d 61 | 6b 65 73 74 72 69 6e 67 |ile$=.ma|kestring|
|00000740| 28 63 6f 75 6e 74 65 72 | 25 2c 31 30 29 0d 02 d0 |(counter|%,10)...|
|00000750| 11 f2 63 68 65 63 6b 28 | 66 69 6c 65 24 29 0d 02 |..check(|file$)..|
|00000760| da 15 6c 6f 61 64 25 3d | 63 6f 75 6e 74 65 72 25 |..load%=|counter%|
|00000770| 21 31 30 0d 02 e4 15 65 | 78 65 63 25 3d 63 6f 75 |!10....e|xec%=cou|
|00000780| 6e 74 65 72 25 21 31 34 | 0d 02 ee 14 6c 65 6e 25 |nter%!14|....len%|
|00000790| 3d 63 6f 75 6e 74 65 72 | 25 21 31 38 0d 02 f8 24 |=counter|%!18...$|
|000007a0| 73 63 74 25 3d 28 28 63 | 6f 75 6e 74 65 72 25 21 |sct%=((c|ounter%!|
|000007b0| 32 32 29 80 20 26 46 46 | 46 46 46 46 29 3c 3c 38 |22). &FF|FFFF)<<8|
|000007c0| 0d 03 02 2a e7 20 28 63 | 6f 75 6e 74 65 72 25 3f |...*. (c|ounter%?|
|000007d0| 33 29 3e 26 37 46 20 8c | 20 74 79 70 65 25 3d 30 |3)>&7F .| type%=0|
|000007e0| 20 8b 20 74 79 70 65 25 | 3d 31 0d 03 0c 0e c8 8e | . type%|=1......|
|000007f0| 20 74 79 70 65 25 20 ca | 0d 03 16 07 c9 20 30 0d | type% .|..... 0.|
|00000800| 03 20 1c f1 20 a4 69 6e | 64 65 6e 74 3b 22 44 69 |. .. .in|dent;"Di|
|00000810| 72 20 3a 20 22 2b 66 69 | 6c 65 24 0d 03 2a 16 c8 |r : "+fi|le$..*..|
|00000820| 99 20 38 2c 38 2c 66 69 | 6c 65 24 2c 30 2c 30 2c |. 8,8,fi|le$,0,0,|
|00000830| 30 0d 03 34 12 c8 99 20 | 26 32 39 2c 30 2c 66 69 |0..4... |&29,0,fi|
|00000840| 6c 65 24 0d 03 3e 12 f2 | 65 78 61 6d 69 6e 65 28 |le$..>..|examine(|
|00000850| 73 63 74 25 29 0d 03 48 | 05 7f 0d 03 52 1f 74 79 |sct%)..H|....R.ty|
|00000860| 70 65 24 3d c3 7e 28 28 | 6c 6f 61 64 25 3e 3e 38 |pe$=.~((|load%>>8|
|00000870| 29 20 80 20 26 46 46 46 | 29 0d 03 5c 2f f1 20 a4 |) . &FFF|)..\/. .|
|00000880| 69 6e 64 65 6e 74 3b 22 | 46 69 6c 65 3a 20 22 2b |indent;"|File: "+|
|00000890| 66 69 6c 65 24 2b 22 2e | 20 54 79 70 65 20 3a 20 |file$+".| Type : |
|000008a0| 26 22 2b 74 79 70 65 24 | 0d 03 66 3d c8 99 20 38 |&"+type$|..f=.. 8|
|000008b0| 2c 30 2c 66 69 6c 65 24 | 2c 6c 6f 61 64 25 2c 65 |,0,file$|,load%,e|
|000008c0| 78 65 63 25 2c 73 63 74 | 25 2b 73 75 72 66 61 63 |xec%,sct|%+surfac|
|000008d0| 65 25 2c 73 63 74 25 2b | 73 75 72 66 61 63 65 25 |e%,sct%+|surface%|
|000008e0| 2b 6c 65 6e 25 0d 03 70 | 05 cb 0d 03 7a 10 63 6f |+len%..p|....z.co|
|000008f0| 75 6e 74 65 72 25 2b 3d | 32 36 0d 03 84 0d 63 6f |unter%+=|26....co|
|00000900| 75 6e 74 25 2b 3d 31 0d | 03 8e 05 ce 0d 03 98 10 |unt%+=1.|........|
|00000910| c8 99 20 26 32 39 2c 30 | 2c 22 5e 22 0d 03 a2 0e |.. &29,0|,"^"....|
|00000920| 73 70 61 63 65 73 25 2d | 3d 32 0d 03 ac 05 e1 0d |spaces%-|=2......|
|00000930| 03 b6 04 0d 03 c0 0f dd | 20 f2 66 69 6e 64 64 69 |........| .finddi|
|00000940| 72 73 0d 03 ca 09 ea 20 | 72 61 25 0d 03 d4 1d e3 |rs..... |ra%.....|
|00000950| 20 72 61 25 3d 26 43 30 | 30 20 b8 20 26 39 46 46 | ra%=&C0|0 . &9FF|
|00000960| 30 30 20 88 20 32 35 36 | 0d 03 de 16 61 64 64 72 |00 . 256|....addr|
|00000970| 25 3d 72 61 25 2b 73 75 | 72 66 61 63 65 25 0d 03 |%=ra%+su|rface%..|
|00000980| e8 15 e7 20 61 64 64 72 | 25 21 31 3d 68 75 67 6f |... addr|%!1=hugo|
|00000990| 25 20 8c 0d 03 f2 21 64 | 69 72 65 63 74 6f 72 79 |% ....!d|irectory|
|000009a0| 25 28 64 69 72 63 6f 75 | 6e 74 65 72 25 29 20 3d |%(dircou|nter%) =|
|000009b0| 20 72 61 25 0d 03 fc 0d | 72 61 25 2b 3d 26 31 30 | ra%....|ra%+=&10|
|000009c0| 30 0d 04 06 38 64 69 72 | 65 63 74 6f 72 79 24 28 |0...8dir|ectory$(|
|000009d0| 64 69 72 63 6f 75 6e 74 | 65 72 25 29 20 3d 20 a4 |dircount|er%) = .|
|000009e0| 6d 61 6b 65 73 74 72 69 | 6e 67 28 61 64 64 72 25 |makestri|ng(addr%|
|000009f0| 2b 26 34 44 39 2c 31 30 | 29 0d 04 10 12 64 69 72 |+&4D9,10|)....dir|
|00000a00| 63 6f 75 6e 74 65 72 25 | 2b 3d 31 0d 04 1a 05 cd |counter%|+=1.....|
|00000a10| 0d 04 24 05 ed 0d 04 2e | 05 e1 0d 04 38 04 0d 04 |..$.....|....8...|
|00000a20| 42 12 dd 20 f2 64 69 73 | 70 6c 61 79 64 69 72 73 |B.. .dis|playdirs|
|00000a30| 0d 04 4c 09 ea 20 72 61 | 25 0d 04 56 1b e3 20 72 |..L.. ra|%..V.. r|
|00000a40| 61 25 3d 30 20 b8 20 64 | 69 72 63 6f 75 6e 74 65 |a%=0 . d|ircounte|
|00000a50| 72 25 2d 31 0d 04 60 17 | e7 20 6e 6f 74 63 6f 70 |r%-1..`.|. notcop|
|00000a60| 79 25 28 72 61 25 29 3d | a3 20 8c 0d 04 6a 2b 63 |y%(ra%)=|. ...j+c|
|00000a70| 6f 70 79 6c 69 73 74 25 | 28 63 6f 70 79 63 6f 75 |opylist%|(copycou|
|00000a80| 6e 74 65 72 25 29 3d 64 | 69 72 65 63 74 6f 72 79 |nter%)=d|irectory|
|00000a90| 25 28 72 61 25 29 0d 04 | 74 2b 63 6f 70 79 6c 69 |%(ra%)..|t+copyli|
|00000aa0| 73 74 24 28 63 6f 70 79 | 63 6f 75 6e 74 65 72 25 |st$(copy|counter%|
|00000ab0| 29 3d 64 69 72 65 63 74 | 6f 72 79 24 28 72 61 25 |)=direct|ory$(ra%|
|00000ac0| 29 0d 04 7e 13 63 6f 70 | 79 63 6f 75 6e 74 65 72 |)..~.cop|ycounter|
|00000ad0| 25 2b 3d 31 0d 04 88 05 | cd 0d 04 92 05 ed 0d 04 |%+=1....|........|
|00000ae0| 9c 05 e1 0d 04 a6 04 0d | 04 b0 14 dd 20 f2 70 72 |........|.... .pr|
|00000af0| 6f 6d 70 74 28 74 65 78 | 74 24 29 0d 04 ba 0b f1 |ompt(tex|t$).....|
|00000b00| 20 74 65 78 74 24 0d 04 | c4 0d c8 99 20 36 2c 32 | text$..|.... 6,2|
|00000b10| 31 2c 30 0d 04 ce 09 e7 | 20 a5 3a cd 0d 04 d8 05 |1,0.....| .:.....|
|00000b20| e1 0d 04 e2 04 0d 04 ec | 20 dd 20 a4 6d 61 6b 65 |........| . .make|
|00000b30| 73 74 72 69 6e 67 28 61 | 64 64 72 25 2c 6d 61 78 |string(a|ddr%,max|
|00000b40| 6c 65 6e 25 29 0d 04 f6 | 14 ea 20 73 74 72 24 2c |len%)...|.. str$,|
|00000b50| 63 68 72 25 2c 63 6e 74 | 25 0d 05 00 0b 73 74 72 |chr%,cnt|%....str|
|00000b60| 24 3d 22 22 0d 05 0a 0b | 63 68 72 25 3d 36 35 0d |$=""....|chr%=65.|
|00000b70| 05 14 0a 63 6e 74 25 3d | 30 0d 05 1e 28 c8 95 20 |...cnt%=|0...(.. |
|00000b80| 63 68 72 25 3e 33 32 20 | 80 20 63 68 72 25 3c 32 |chr%>32 |. chr%<2|
|00000b90| 35 36 20 80 20 63 6e 74 | 25 3c 6d 61 78 6c 65 6e |56 . cnt|%<maxlen|
|00000ba0| 25 0d 05 28 13 63 68 72 | 25 3d 61 64 64 72 25 3f |%..(.chr|%=addr%?|
|00000bb0| 63 6e 74 25 0d 05 32 2e | e7 20 63 68 72 25 3e 33 |cnt%..2.|. chr%>3|
|00000bc0| 32 20 80 20 63 68 72 25 | 3c 32 35 36 20 8c 20 73 |2 . chr%|<256 . s|
|00000bd0| 74 72 24 2b 3d bd 28 63 | 68 72 25 20 80 20 26 37 |tr$+=.(c|hr% . &7|
|00000be0| 46 29 0d 05 3c 0b 63 6e | 74 25 2b 3d 31 0d 05 46 |F)..<.cn|t%+=1..F|
|00000bf0| 05 ce 0d 05 50 09 3d 73 | 74 72 24 0d 05 5a 04 0d |....P.=s|tr$..Z..|
|00000c00| 05 64 10 dd 20 f2 66 69 | 6e 64 72 6f 6f 74 73 0d |.d.. .fi|ndroots.|
|00000c10| 05 6e 0e ea 20 72 61 25 | 2c 72 61 32 25 0d 05 78 |.n.. ra%|,ra2%..x|
|00000c20| 1c e3 20 64 69 72 25 3d | 30 20 b8 20 64 69 72 63 |.. dir%=|0 . dirc|
|00000c30| 6f 75 6e 74 65 72 25 2d | 31 0d 05 82 24 74 61 64 |ounter%-|1...$tad|
|00000c40| 64 72 25 3d 64 69 72 65 | 63 74 6f 72 79 25 28 64 |dr%=dire|ctory%(d|
|00000c50| 69 72 25 29 2b 73 75 72 | 66 61 63 65 25 0d 05 8c |ir%)+sur|face%...|
|00000c60| 0a 65 6e 64 25 3d a3 0d | 05 96 11 65 6e 64 63 6f |.end%=..|...endco|
|00000c70| 75 6e 74 65 72 25 3d 30 | 0d 05 a0 10 e3 20 72 61 |unter%=0|..... ra|
|00000c80| 25 3d 30 20 b8 20 37 39 | 0d 05 aa 1d 61 64 64 72 |%=0 . 79|....addr|
|00000c90| 25 3d 28 28 72 61 25 2a | 32 36 29 2b 35 2b 74 61 |%=((ra%*|26)+5+ta|
|00000ca0| 64 64 72 25 29 0d 05 b4 | 30 e7 20 3f 61 64 64 72 |ddr%)...|0. ?addr|
|00000cb0| 25 3d 30 20 80 20 65 6e | 64 25 3d a3 20 8c 20 65 |%=0 . en|d%=. . e|
|00000cc0| 6e 64 25 3d b9 3a 65 6e | 64 63 6f 75 6e 74 65 72 |nd%=.:en|dcounter|
|00000cd0| 25 3d 72 61 25 0d 05 be | 05 ed 0d 05 c8 20 e7 20 |%=ra%...|..... . |
|00000ce0| 65 6e 64 25 3d a3 20 8c | 20 65 6e 64 63 6f 75 6e |end%=. .| endcoun|
|00000cf0| 74 65 72 25 3d 72 61 25 | 2d 31 0d 05 d2 15 e7 20 |ter%=ra%|-1..... |
|00000d00| 65 6e 64 63 6f 75 6e 74 | 65 72 25 3e 30 20 8c 0d |endcount|er%>0 ..|
|00000d10| 05 dc 1b e3 20 72 61 25 | 3d 30 20 b8 20 65 6e 64 |.... ra%|=0 . end|
|00000d20| 63 6f 75 6e 74 65 72 25 | 2d 31 0d 05 e6 1d 61 64 |counter%|-1....ad|
|00000d30| 64 72 25 3d 28 28 72 61 | 25 2a 32 36 29 2b 35 2b |dr%=((ra|%*26)+5+|
|00000d40| 74 61 64 64 72 25 29 0d | 05 f0 1c e3 20 72 61 32 |taddr%).|.... ra2|
|00000d50| 25 3d 30 20 b8 20 64 69 | 72 63 6f 75 6e 74 65 72 |%=0 . di|rcounter|
|00000d60| 25 2d 31 0d 05 fa 32 e7 | 20 61 64 64 72 25 21 32 |%-1...2.| addr%!2|
|00000d70| 31 3d 64 69 72 65 63 74 | 6f 72 79 25 28 72 61 32 |1=direct|ory%(ra2|
|00000d80| 25 29 20 8c 20 6e 6f 74 | 63 6f 70 79 25 28 72 61 |%) . not|copy%(ra|
|00000d90| 32 25 29 3d b9 0d 06 04 | 05 ed 0d 06 0e 05 ed 0d |2%)=....|........|
|00000da0| 06 18 05 cd 0d 06 22 05 | ed 0d 06 2c 05 e1 0d 06 |......".|...,....|
|00000db0| 36 04 0d 06 40 11 dd 20 | a4 61 73 6b 28 74 65 78 |6...@.. |.ask(tex|
|00000dc0| 74 24 29 0d 06 4a 0c f1 | 20 27 74 65 78 74 24 0d |t$)..J..| 'text$.|
|00000dd0| 06 54 0b 74 65 78 74 24 | 3d be 0d 06 5e 0e c8 8e |.T.text$|=...^...|
|00000de0| 20 74 65 78 74 24 20 ca | 0d 06 68 0d c9 20 22 59 | text$ .|..h.. "Y|
|00000df0| 22 2c 22 79 22 0d 06 72 | 06 3d b9 0d 06 7c 05 7f |","y"..r|.=...|..|
|00000e00| 0d 06 86 06 3d a3 0d 06 | 90 05 cb 0d 06 9a 04 0d |....=...|........|
|00000e10| 06 a4 0d dd 20 a4 69 6e | 64 65 6e 74 0d 06 ae 12 |.... .in|dent....|
|00000e20| 3d c4 73 70 61 63 65 73 | 25 2c bd 33 32 29 0d 06 |=.spaces|%,.32)..|
|00000e30| b8 04 0d 06 c2 14 dd 20 | f2 63 68 65 63 6b 28 f8 |....... |.check(.|
|00000e40| 20 73 74 72 24 29 0d 06 | cc 08 ea 20 78 25 0d 06 | str$)..|... x%..|
|00000e50| d6 11 c8 95 20 a7 73 74 | 72 24 2c 22 2c 22 29 0d |.... .st|r$,",").|
|00000e60| 06 e0 11 78 25 3d a7 73 | 74 72 24 2c 22 2c 22 29 |...x%=.s|tr$,",")|
|00000e70| 0d 06 ea 11 c1 73 74 72 | 24 2c 78 25 29 3d 22 21 |.....str|$,x%)="!|
|00000e80| 22 0d 06 f4 05 ce 0d 06 | fe 05 e1 0d ff          |".......|.....   |
+--------+-------------------------+-------------------------+--------+--------+